home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / fifth21.arc / SQRT.FIV < prev    next >
Text File  |  1986-03-30  |  136b  |  14 lines
  1. CREATE SQRT
  2. EDIT
  3. : sqrt
  4.  
  5.   dup 2. f/
  6.   13 0 do
  7.     stack ab|abb
  8.     f* f+
  9.     swap 2. f* f/
  10.   loop
  11.   swap drop
  12. ;
  13. ~UP
  14. ABORT